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- D COMPLEX*16 Conjugate 16-SEP-1984 5: AX/VMS Macro v04-00 Pp 1 MTH' 
jug 6-SEP-19 198 9 i 33 EMTHRTL. SREIMTHDCONJG. MAR: 1 ag (1) 1-0 
-TITLE MTHSDCONJG = D COMPLEX®*16 C onju ate 
IDENT /1-001/ : File: arabe %. MAR 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
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FACILITY: MATH LIBRARY 
* ABSTRACT: 


This module contains routine MTHSDCONJG: 
Return D COMPLEX*16 conjugate. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 20-July-1979 


MODIFIED BY: 
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; Edit History 
6 : 1-001 = Adapted from MTHSCONJG version 1-002. SBL 20-July-1979 


MTHRTL.SRCJMTHDCONJG.MAR; 1 


MTHSDCONJG - D COMPLEX*16 Conjugate 16-SEP-1984 01:15: AX/VMS Macro V04-00 
1-001 DECLARATIONS Jug aaa 9 OF :33 83 
09 28 -SBTTL DECLARATIONS 
0 60 ; 
61 ; INCLUDE FILES: 
86 $ 
65 ; 
0 64 
0 65 ; 
0 66 ; EXTERNAL SYMBOLS: 
444 67 ; NONE 
pi 
\ 8 $3 
44 71 ; MACROS: 
000 if; s NONE 
444 73; 
60 74 
000 "2 3 
000 76 ; PSECT DECLARATIONS: 
00 77 -PSECT _MTHSCODE PIC, SHR, EXE, NOWRT, LONG 
0000 78 
00 79 ; 
00 80 ; EQUATED SYMBOLS: 
00 81; NONE 
00 Hf g 
00 8 
00 84; 
00 85 ; OWN STORAGE: 
00 86 ; NONE 
00 &7 ; 


MTHSDCONJG - D COMPLEX*16 Conjugate 16-SEP-1984 01:15: AX/VMS Macro V04-00 P 
1-001 MTSDCONIE = retorn Bb COMPLEX®16 conjuga \GaseP-1obe S127 :8e LAMAN TS ae 5e Otte mans1 Pam 
8 $9 -SBTTL MTHSDCONJG - return D COMPLEX*16 conjugate 
1 344 
§ 38 ; FUNCTIONAL DESCRIPTION: 
93 ; Returns the cong lon conjugate of COMPLEX*16 number (r,i). 
9% ; Result is (r,-i). 
32 3 
000 39 3; CALLING SEQUENCE: 
8 38 : CALL MTHSDCONJG (result.wdc.r, arg.rdc.r) 
8 ° 130 3 
101 ; 
000 19 ; INPUT PARAMETERS: 
00000008 0000 19 arg = 8 ; D COMPLEX*16 argument by reference. 
0000 104; 
0000 105 ; 
0000 196 3 IMPLICIT INPUTS: 
44 107 ; NONE 
000 108; 
444 4 ; OUTPUT PARAMETERS: 
00000004 444 1) result = 4 :; D COMPLEX*16 result by reference 
0000 118 3; IMPLICIT OUTPUTS: 
0000 114; NONE 
0000 115; 
0000 116 ; COMPLETION CODES: 
0000 117; NONE 
0000 118; 
0000 119 ; SIDE EFFECTS: E 
0000 120; Reserved Operand exception can occur. 
0000 121; 
0000 1 ¢ 5 
0000 \§ 37° 
0000 124 
0000 125 
0000 126 
0000 127 eENTRY MTHSDCONJG “M<> 
50 O08 AC 00 0002 128 MOVL arg(AP), R 3; argument address 
51 04 AC 34 0006 129 MOVL result(AP), R1 3; result address 
81 80 70 O00A 130 MOVD (RO)+, (RIS+ : real part 
61 60 72 Q000D 131 MNEGD (RO), (R1) ; imaginary part 
04 Baio 13 RET 
| oo 
0011 134 
0011 135 .END 
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Command processing 


Pass 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Pass 
— table sort 


The working hy Limit was 750 
1355 bytes (3 pages) of virtua 
There were 


Macro Library name 


Page faults 


135 source (ene were read in Pass 1, 9 
0 pages of virtual memory were used to define 0 macros. 
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' Psect synopsis ' 
Allocation PSECT No. Attributes 
00000000 7 ;} 89 ( 0.) NOPIC 
00000011 ¢ 17.) O1¢ 1.) PIC 


CPU Time Elapsed Time 

32 00:80 :90-19 00:00:01.68 
116 00:00:00.5 00:00:02.60 
65 os 64 SF 4 bs Se 
0 00:00: 8-99 0:00:00.0 
37 00:00:00.31 00:00:01.05 
2 00:00:00.00 00:00:00.31 

2 00:00:00.02 00:00:00.12 

0 00:00:00.00 00:00:00.00 
256 00:00:61.35 00:00:07.48 

ages. 


producin 


-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDCONJG/OBJ=OBJ$:MTHDCONJG MSRC$:MTHDCONJG/UPDATE=(ENH$:MTHDCONJG) 


USR 
SR 


ewe ee wae ema $+ 


CON ABS 
CON REL 


memory were used to buffer the intermediate code. 
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MTHRTL.SR 


0 V04-00 
IMTHDCONJG. MAR; 1 


Page 


= NOEXE NORD NOWRT NOVEC BYTE 


0 pages of symbol table space Hy ee | to hold 3 non-local and 0 local symbols. 
i 0 object records in Pass 
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